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Ogni mese in edicola 


il DOSSIER 
per il tuo computer 


• COMMODORE DOSSIER 

• SINCLAIR DOSSIER 

• TEXAS 99/4A DOSSIER 


giochi, programmi di utilità 
e programmi personali per 
realizzare una fantastica 
biblioteca software 




CODIFICA SIMBOLI 

UTILITY 


PROGRAMMI 

PERSONALI 


GIOCHI 






















Un programma che Vi permetterà' di dispor— 
re di diverse FUNZIONI nell'ambito delle 
DATE e dei BIORITMI. Al lancio d'esso 

verrà' visualizzato un MENU 1 che permet¬ 
terà ' di segliere tra tre differenti op¬ 
zioni e precisamente: 

1) NUMERO DI GIORNI TRA DUE DATE 

2) IL GIORNO DI UNA DATA 

3) STUDIO DI UN BIORITMO 

La prima opzione Vi permetterà' di 
conoscere quanti giorni vi sono tra 
appunto due date. Per ottenere questo, 
basterà' che comunichiate al COMPUTER la 
prima data nella forma GGMMAAAA cioè' 
giorno, mese ed anno come ad esempio 
19111918; fatto ciò' dovrete comunicare la 
seconda data sempre nella medesima forma, 
cioè’ GGMMAAAA ed esso in breve tempo Vi 
visualizzerà' i giorni. Questa opzione 

può' rivelarsi utile ed interessante per 
conoscere quanti giorni ad esempio sono 
passati da quando siamo nati ad òggi, 
oppure quanti giorni sono passati dal 
giorno delle VOSTRE NOZZE oppure ancora 
quanti giorni mancano all'inizio delle 
Vostre meritate e SOSPIRATE FERIE. 

La seconda opzione Vi permetterà' di 
conoscere il giorno della settimana di una 








































































































































































































































particolare data. Vi ricordate ad 

esempio che giorno era quello in cui siete 
nati?... Pochi a dire il vero se lo 
ricordano, ecco quindi una buona occasione 
per conoscere se ad esempio era un 

GIOVEDÌ' od una DOMENICA od un MARTEDÌ'. 
La terza opzione Vi permetterà' di 
studiare attentamente i BIORITMI, Vostri o 
di altre persone. Alla richiesta di 

questa opzione Vi verrà' visualizzato un 
altro MENU' anche esso con tre opzioni ma 
tutte e tre ovviamente ri-feri te ad i 
BIORITMI. La prima opzione Vi 

permetterà* di studiare il BIORITMO di una 
persona e ad esmpio il Vostro. Per -fare 
ciò* sara' suHF-ficente che Voi comunichiate 
al computer la Vostra DATA DI NASCITA e 
la Data da cui volete che venga analizzato 
il Vostro BIORITMO. Dando il 

necessario tempo al COMPUTER per 
e-f-fettuare i dovuti calcoli Vi verrà' 
visualizzata un completo BIORITMO, 
suddiviso nelle seguenti MEDIE 

BIORITMICHE: 

1) MEDIA FISICA 

2) MEDIA SENTIMENTALE 

3) MEDIA INTELLETTUALE 

4) MEDIA DELLE PRECEDENTI TRE 

Esse verranno visualizzate una di seguito 
all'altra e per passare alla sucessiva 
occorrerà premere il tasto ENTER. 

La seconda opzione Vi permetterà' di 
studiare la COMPATIBILITA' DI 2 PERSONE 












































































































































































































































































nell'arco di 3 SETTIMANE. Per far ciò' 
sara' sufficente comunicare al COMPUTER la 
DATA DI NASCITA di entrambe e la data da 
cui iniziare a considerare la 
compatibilita' e per la durata di tre 

settimane. A questo punto la prassi da 
eseguire per visualizzare i risultati e' 
la medesima della precedente opzione. 

La terza ed ultima opzione e' simile alla 
precedente solo che lo studio di 
compatibilita' tra due persone non e' 
limitato a tre settimane!!... Infatti 
data la complessità dei calcoli per 
pervenire ad un tale risultato occorrerà' 
molto tempo per cui se non volete 
attendere le 5 ORE E 40 MINUTI necessari e 
Vi accontentate di una semplice TENDENZA 
dovrete alla richiesta comunicarla al 
COMPUTER, in caso contrario potrete, per 
ingannare l'attesa adare a fare una bella 
GITA ( in 5 ore e 40 minuti se ne fanno di 
belle passeggiate). Buono studio. 

Un ultima cosa, riguardante il listato del 
programma: vi sono alcune istruzioni che 
vanno su piu' righe e nel caso che esse 
siano di piu' di due, vanno ignorati gli 
spazi che vi sono tra la fine della 
seconda e l'inizio della seguente. 

























































































































































































































































































10 DIM ES <21) 

20 DIM SE(21) 

30 DIM ED(21) 

40 CALL COLOR(3,5,1) 

50 CALL COLOR(4,5,1) 

60 CALL COLOR(12,7,1) 

70 CALL CLEAR 

SO PRINT "YYYYYYYYYYYYYYYYYYYYYYYYYYY", 


li I) il 11 II si 

1 1 


90 PRINT ”1-NUMERO DI GIORNI TRA DUE DATE 


100 PRI NT " " , " " , “ " , , ” " , 1111 

110 PRINT "2-IL GIORNO DI UNA DATA 

120 PRINT 

Il ~T _ 


3—STUDIO DI UN BIORITMO" 


Il II II 11 11 li li 11 

* 1 * 


,"YYYYYYYYYYYYYYYYYYY 


Il 11 II II II il 11 11 11 >1 II fi 

1 * * ? 9 


130 PRINT 
140 PRINT 
YYYYYYYY" 

150 PRINT 
160 CLE=0 
170 CLEY=0 
180 CLES=0 
190 CLEP=0 
200 CLEI=0 

210 INPUT "IMMETTERE IL NUMERO 
RISPONDENTE ALLA SCELTA .": V 
220 IF V=3 THEN 230 ELSE 320 
230 CALL CLEAR 

240 PRINT "zzzzzzzzzzzzzzzzzzzzzzzzzzz 

'1HBI0RITM0 DI UNA SOL 
A PERSONA " , " ** 

250 PRINT "2-STUDIO DI COMPATIBILITA' DURA 
NTE TRE SETTIMANE" » 

260 PRINT "3-STUDIO DELL'AFFINITÀ' DI 2 


COR 


>1 II II 
1 







































































































































































































































































PERSONE . 11 , 


261 

PRI NT " " ” , " “ , " " , » " , " z z z z z 

Jt—* In» *■ Am Am Am 4» 

Z Z Z ' 

■»7'7- 7 ^7-»-r-r 7 ^ M II 1* Il II II li II II 


270 

INPUT » IMMETTERE IL NUMERO 

COR 

RISPONDENTE ALLA SCELTA."sC 


280 

CALE CLEAR 


290 

IF C=3 THEN 320 


300 

IF C=2 THEN 320 


310 

IF C=1 THEN 320 ELSE 230 


320 

IF V=1 THEN 410 


330 

IF 0=2 THEN 740 


340 

IF V=3 THEN 390 


350 

F‘R I NT " “ , „ " SCELTA ERRA 1 A **-*•*-**■**•*-*-* 


RI IMETTERLA PREGO ! ! " , " " , ” !! t 


360 

FOR KA=1 TD 800 


370 

NEXT KA 


380 

GOTO 70 


390 

CLE= 1 


400 

GOTO 470 


410 

CALL CLEAR 

' 

420 

INPUT "SCRIVETE LA PRIMA DATA 

<GG 

MMAAAA):": DI 


430 

PRINT ” •* , " , » ” ? » •• , :i » 


440. 

D=DÌ 


450 

GOSUB 1140 


460 

GOTO 500 


470 

INPUT "DATA DI NASCITA 

(GG 

MMAAAA):": DI 


480 

PRINT " ” , " ,s "" , *•** , »" , »» 


490 

GOTO 440 


500 

QP=Q 


510 

IF CLEV=1 THEN 540 


520 

IF CLE=1 THEN 570 













































































































































































































































530 INPUT "SCRIVETE LA SECONDA DATA <GG 

MMAAAA):“:D2 

540 D=D2 

550 GOSUB 1140 

560 GOTO 630 

570 IF C< >3 THEN 600 

580 D2=D1 

590 GOTO 540 

600 INPUT "BIORITMO A PARTIRE DA QUALE DAT 
A (GGMMAAAA):": 

D2 

pj^ | II II Il 11 II II II II II II II II H II II 11 II II II II 

620 GOTO 540 
630 T=Q—GP 

640 IF CLE=1 THEN 710 
650 CALL CLEAR 

660 PRINT " iiiii metta <>>>>>>>>}>>>}>" 

il il il il il n II 

670 PRINT "IL NUMERO DI GIORNI COMPRESI"," 

il li li il li li il 11 li 

680 PRINT TAB(7);"IL ;D1TAB 

(4);"E IL :";D2,"TAB 
(1);" E' UGUALE A: ";AB5(T) 

690 PRINT ” " , " " , "’V*" , 

<>>>>>>>>>>>>>>" 

700 GOTO 930 
710 QA=Q 
720 RT=T 

730 IF CLEY=1 THEN 1910 
740 D=04101982 
750 GOSUB 1170 
760 IF CLE=1 THEN 850 
770 QP=Q 
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780 CALL CLEAR 

790 INPUT "IMMETTERE LA DATA IN QUESTIONE 

(GGMMAAAA):":D1 

800 D=D1 

810 GOSUB 1140 

820 TX=Q—QP 

830 GOSUB 1640 

840 GOTO 880 

850 QP=QA 

860 TX=QP—Q 

870 GOTO 830 

880 IF CLE=1 THEN 1850 

890 CALL CLEAR 

900 PRINT "xxxxxxxxxxxxxxxxxxxxxxxxxxx",”" 

Il II >1 >1 II II II II 
* * 1 * 

910 PRINT TAB (10) ; "IL : " ; DI ; " " , " " , "" , " " , TA 
B (4) ;"E' UN s“ ; L*,"","“,""," M , " " 

920 PRINT "xxxxxxxxxxxxxxxxxxxxxxxxxxx" 

930 CALL KEY(3,ET,ST) 

940 IF ST=0 THEN 930 
950 CALL CLEAR 

9Ò0 PRINT 11 , V'V'V r »/'V'V'V'W'V'V < V'V^V / 'v'VWV'V f VAf r w , V'V , \/'V , V^ Il II 

Il II II II II II II 

970 PRINT "VUOI CONTINUARE 


li II il il II II II 

f 1 1 


Il II II il 
* » 


980 PRINT "SCRIVETE S PER SI 

N PER NO . " , " " , "" , "" , "" 
990 PRINT 
1000 D1=0 
1010 D2=0 

1020 FOR ZI=1 TO 800 
1030 CALL KEY<3,LT,ET) 

1040 IF ET=0 THEN 1050 ELSE 1090 
1050 NEXT ZI 
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1060 CALL CLEAR 

1070 PRI NT ??????????*?'>'>'? J ?.*7 "? 

" , " " , "MI FERMO.”, 

1071 FRINT "”:"ESITATE TROPPO": 5 
VEDERCI !("???????????????? 





" ARRI 


7 


1080 END 

1090 IF LT=83 THEN 70 
1100 CALL CLEAR 

1110 F’RINT TAB (5) ; "***************“ 

1120 FRINT TAB(5);"* **':TAB(5> 

;"* ARRIVEDERCI*":TAB(5);"* 

*" : 


1121 FRINT TAB(5);"***************","","”, 

I! ti If II JI !f il I! 

i130 END 

1140 OP*=STRUD) 

1150 LUT=LEN(0P$) 

1160 IF LUT>=7 THEN 1170 ELSE USO 
1170 IF D>1011583 THEN 1240 
1180 CALL CLEAR 

1190 PRINT "| i * | f ; i | | | i » i * i i i i i i i 1 » i 1 i i i>« 

" " , " " , " " ,"","","","AVETE COMMESSO "," 
":"UN ERRORE NELLA DA T A 

1200 FRINT "RICOMINCIATE TUTTO GRAZIE !", 


1210 FQR KA=1 TO 600 
1220 NEXT KA 
1230 GOTO 70 
1240 N=D-INT(D) 

1250 IF N=0 THEN 1270 

1260 GOTO 1180 

1270 IF D<32E6 THEN 1290 




















































































































































































































1280 GOTO 1180 
1290 J=INT<D/1E6) 

1300 M=INT< <(D/1E6) -INT (D/1E6))*100) 

1310 A=(<D/1E4)-INT<D/ÌE4> >*1E4 

1320 IF M>12 THEN 1180 

1330 IF M=4 THEN 1370 

1340 IF M=6 THEN 1370 

1350 IF M=9 THEN 1370 

1360 IF li=l 1 THEN 1370 ELSE 1380 

1370 IF J>30 THEN 1180 

1380 IF A<1583 THEN 1180 

1390 IF M<3 THEN 1530 

1400 E=1 

1410 ON E GOSUB 1470,1490,1470,1510,1470,1 
510,1470,1470,1510,1470,1510,1470 
1420 E=E+1 

1430 IF E=M THEN 1450 
1440 GOTO 1410 

1450 Q=< (365* (A-l) >+INT<A/4)+J) 

1460 RETURN 

1470 J=J+31 

1480 RETURN 

1490 J=J+28 

1500 RETURN 

1510 J=J+30 

1520 RETURN 

1530 IF M=2 THEN 1580 

1540 Q=0 

1550 A=A—1 

1560 Q=Q+(365*A)+INT<A/4)+J 
1570 RETURN 
1580 Q=31 

1590 AA=((A/4)-INT(A/4)) 










































































































































































































l<bUU 

1F AA=0 THEN 1610 ELSE 1620 

1Ó10 

IF L>29 THEN 1180 ELSE 1630 

1620 

IF J >28 THEN 1180 

1630 

GOTO 1550 

1640 

R=TX 

1650 

R=<(R/7)—INT <R/7))*7 

1660 

IF R<0 THEN 1690 

1670 

R=R+1 

1680 

ON R GOTO 1710,1730,1750,1770,1790,18 

10,1830 

1690 

R=R+8 

1700 

GOTO 1680 

1710 

L$="LUNEDI !! 

1720 

RETURN 

1730 

L$="MARTEDÌ” 

1740 

RETURN 

1750 

L$="MERCOLEDÌ'* 

1760 

RETURN 

1770 

L$="GIOVEDÌ" 

1780 

RETURN 

1790 

L*="VENERDÌ” 

1800 

RETURN 

1810 

L$=" SABATO *' 

1820 

RETURN 

1830 

L$="DOMENICA" 

1840 

RETURN 

1850 

IF C=1 THEN 2250 

1860 

PRINT "LE RICHIESTE CHE VI SONO STATE 

FATTE RIGUARDANO LA 2' PERSONA 

II 

1870 

■ 

PRINT ,,H , 

1880 

R1=RT 

1890 

CLEY=1 

1900 

GOTO 470 




































































































































































































































1910 IF C-2 THEN GOTO 1920 ELSE GOTO 3140 
1920 FOR GA=0 TO 20 

1930 ES(GA) = ( < (SIN ( (2*3. 14*RT) /33>.)*5> + < 

IN((2*3.14*R1)/33))*5))/2 

1 940 SE (GA)=(<( SIN ((2*3 .14*RT )728}>*5>+<<S 
IN <(2*3.14*R1)/2S) )*5))72 

1950 ED(GA)=(((SIN((2*3.14*RT)/23)>*5)+<(S 

IN((2*3.14*R1)/23>)*5))/2 

1960 RT—RT+1 

1970 Rl=Ri+1 

1980 NEXT GA 

1990 CALL CHAR (128, " 0Q00003C3C000000> 

2000 CALL CHAR (136, “ 0000003C3C0000Q0 11 ) 

2010 CALL CHAR(144, n 0000003C3C000000“) 

2020 CALL COLOR(13,6,1) 

2030 CALL COLOR(14,10,1) 

2040 CALL COLOR(15,11,1) 

2050 CALL CLEAR 

2060 FRI NT TAB(O) ; "COMPATIBILITA ' ì; 

2070 FRINT"" 

2080 FRINT TAB(2);”DI 2 PERSONE 
2090 FRINT "" 

2100 FRINT TAB(4);"PER 3 SETTIMANE" 

2110 PRINT "" 

2120 PRINT ,,n 
2130 FOR MA3=0 TO 100 
2140 NEXT MAS 
2150 PRINT "" 

2160 PRINT TAB(O);"MEDIA FISICA 
2170 CALL HCHAR(23,25,128,3) 

2180 PRINT TAB(O)i"MEDIA SENTIMENTALE " 
2190 CALL HCHAR (23, 25,136,3) 

2200 PRINT TAB(0);"MEDIA INTELLETTUALE 


























































































































































































































2210 CALL HCHAR(23,25,144,3) 

2220 PRINT TAR(O);“COMPATIBILITA' GENERALE 
*1 

2230 CALL HCHAR<23,25,42,3) 

2240 GOTO 2480 

2250 FOR GA=0 TO 20 

2260 ES(GA)=SIN< <2*3. 14*RT)733)*5 

2270 SE(GA)=SIN < <2*3. 14*RT)/28)*5 

2280 ED(GA)=SIN<<2*3.14*RT)723)*5 

2290 RT=RT+1 

2300 NEXI GA 

2310 CALL CHAR <128,"0000003C3C000000 !> ) 

2320 CALL CHAR <136,"0000003C3C000000") 

2330 CALL CHAR <144,"0000003C3C00000Ò") 

2340 CALL COLOR <13,13,1) 

2350 CALL COLOR(14,7,1) 

2360 CALL COLOR<15,8,1) 

2370 CALL CLEAR 

2380 PRINT TAB<4);"BIORITMO PER 3 SETTIMAN 
E " 

2390 PRINT " " 

2400 PRINT TAB<4);"FISICO " 

2410 CALL HCHAR<23,19,128,4) 

2420 PRINT TAB<4);"SENTIMENTALE" 

2430 CALL HCHAR<23,19,136,4) 

2440 PRINT TAB<4)?"INTELLETTUALE" 

2450 CALL HCHAR<23,19,144,4) 

2460 PRINT TAB<4);"MEDIA " 

2470 CALL HCHAR<23,19,42,4) 

2480 PRINT 

2490 FOR GA=5 TO 0 STEP -1 
2500 PRINT TAB(2);GA 
2510 NEXT GA 
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2520 

CALL HCHAR(23,6,45,2 

1 ) 

2530 

FOR GA=1 TO 5 


2540 

PRINT TAB ( CO ; ; GA 


2550 

NEXT GA 


2560 

FRINÌ "" 


2570 

□N R 60SUB 2860,2880 

,2900,2920,2940,2 

960,2980 


2580 

PRINT 11 " 


2590 

PRINT T AB (4 ) ; A PARTIRE DA:“ 

2600 

PRINT TAB <8);L#;TAB(18);D2 

2610 

FOR GA=0 TO 20 


2620 

CALL HCHAR(13-ED < GA) 

,GA+6,1^8,1) 

2630 

NEXT GA 


2640 

CALL KEY(3,ET,ST) 


2650 

IF ST=0 THEN 2640 


2660 

GOSUB 3090 


2670 

FOR GA=0 TO 20 


2680 

CALL HCHAR(13~BE(GA) 

,GA+6,136,1) 

2690 

NEXT GA 


2700 

CALL KEY(3,ET, ST) 


2710 

IF ST=0 THEN 2700 


2720 

GOSUB 3090 


2730 

FOR GA=0 TU 20 


2740 

CALL HCHAR(13-ES(GA) 

, GA+6,144,1) 

2750 

NEXT GA 


2760 

CALL KEY(3,ET,ST) 


2770 

IF ST=0 THEN 2760 


2780 

GOSUB 3090 


2790 

FOR GA=0 TO 20 


2800 

CALL HCHAR(13—SE < GA) 

,GA+6,136,1) 

2810 

CALL HCHAR(13-ED(GA) 

,GA+6,128,1) 

2820 

CALL HCHAR(13-ES(GA) 

,GA+6,144,1) 

2830 

NEXT GA 








































































































































































































































2840 CALL KEY<3,ET,ST) 

2850 IF ST=0 THEN 2840 ELSE 3000 

2860 FRINT TAB(4);"LMMGVSDLMMGVSDLMMGVSD" 

2870 RETURN 

2880 FRINT TAB(4); "MMGVSDLMMGVSDLMMGVSDL u 
2890 RETURN 

2900 PRINT TAB<4>;"MGVSDLMMGVSDLMMGOSDLM” 

3000 GOSUB 3090 

3010 FOR GA=0 Tu 20 

3020 MY=< ES(GA)+SE(GA•+ED(GA>)/3 

3030 CALL HCHAR < 1 3-MY,GA+6 ,42,1) 

3040 NEXT GA 

3050 CALL KEY(3,ET,ST) 

3060 IF ST=0 THEN 3050 

3070 CALL CLEAR 

3080 GOTO 950 

3090 FOR GA=1 TO 11 

3100 CALL HCHAR(7+GA,6,127,21> 

3110 NEXT GA 

3120 CALL HCHAR(13,6,45,21) 

3130 RETURN 

3140 REM JJJJJJ 

3150 PHY=0 

3160 SENT=0 

3170 INTEL=0 

3180 FID=ABS(RT-R1) 

3190 PRINT INCESIDERATE UNA TENDENZA 
" : " " : TAB (9) ; "IN : < 7 MINUTI >", u " , 11 

** •* ,j ** n n •* ** *» ** >» *» ** n u fi ii ii 

3200 PRINT "-2^LA PERCENTUALE ESATTA 
" s " " : TAB (9) ; " IN : < 5H 40MN , 

» n ii ii ii ii ii ii n ii ii n 

» f t i » 

3210 CALL KEY(3,ET,ST) 











































































































































































































































3220 IF ST=0 THEiM 3210 

3230 IF ET=49 THEN 3240 ELSE 3270 

3240 LIM=400 

3250 HEUR$="7 MINUTI” 

3260 BOTO 3290 
3270 LIM=21252 


3280 HEUR$="5H 40MN" 

3290 CALL CLEAR 

3300 FRI NT 11 : !i 

, TAB (12) ; "< H +";HEURS;" 


i ir II 


$i li a I* 

1 9 5 

Il J! Il li 

5 J 1 


I» Il II II 11 !< II II 12 II !> Il II II II II 11 li lì 

3310 CALL SCREEN(14) 

3320 FOR DI=1 TO LIM 
3330 I1=SIN(< 6.2S*DI>/33) 

3340 I2=SIN< <6.28*(DI+FID))/33) 
3350 S1=SIN((6.28*DI)/28) 

3360 S2=SIN<(6.28*(DI+FID))/28) 


3370 P1=SIN((6.28*DI)723) 


li il 
U »! 


lì II 

li 

* 


3380 P2=SIN< <6.28*(DI+FID))723) 

3390 PHY=PHY+AB3(P1-P2> 

3400 SENT=SENT+ABS(S1-S2 > 

3410 INTEL=INTEL+ABS(11-12) 

3420 NEXT DI 
3430 PHY=(PHY*5)/LIM 
3440 SENT= <SENT*5)/LIM 
3450 INTEL=(INTEL*5)/LIM 
3460 CALL SCREEN(4) 

3470 PRINT TAB(2);"PERCENTUALE DI AFFINITÀ 

' II 

3480 PRINT "" 

3490 CALL CHAR(129,"OOFFFFFFFFFFFFOO") 

3500 CALL CHAR(137,"OOFFFFFFFFFFFFOO") 

351O CALL CHAR(145,”OOFFFFFFFFFFFFOO") 
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3520 CALL CHAR(152,"00FFFFFFFFFFFF00") 
3530 CALL COLOR<13,11,2) 

3540 CALL COLOR<14,5,2) 

3550 CALL COLOR(15,7,2) 

3560 CALL COLOR(16,14,2) 

3570 PRINT TAB(4);"FISICA " 

3580 CALL HCHAR(23,17,129,3) 

3590 FRINÌ TAB(4);“SENTIMENTALE" 

3600 CALL HCHAR<23,17,137,3) 

3610 PRINT TAB (4) ; ,! INTELLETTUALE” 

3620 CALL HCHAR<23,17,145,3) 

3630 PRINT TAB<4);"SINTESI " 

3640 CALL HCHAR<23,17,152,3) 

3650 PRINT •* " 

3660 FOR GA=100 TO 10 STEP -10 

3670 PRINT TAB <1) ;GA;TAB <6);" _ 

II 

3680~NEXT GA 

3690 CALL VCHAR<14+PHY,11,129,1O-PHY) 

3700 CALL VCHAR<14+SENT,14,137,10-SENT) 
3710 CALL VCHAR<14+INTEL,17,145,10-INTEL) 
3720 CALL KEY <3,ET,ST) 

3730 IF ST=0 THEN 3720 

3740 MQY=(PHY+ <INTEL*2) + <SENT*3) )/6 

3750 CALL VCHAR<14+MQY,23,152,10-M0Y) 

3760 CALL KEY<3,ET,ST) 

3770 IF ST=0 THEN 3760 
3780 CALL CLEAR 
3790 GOTO 950 
3800 STOP 
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Una ver si one computer i z z at. a del gi oco 
de11 'imp1 ecalo per quanti vog1iano cimen- 
t arsi nell 'indovi nare le parole pròp os t e 
dal computer. Una volta lanciato il 
programma Vi verrà' richiesto se per pro¬ 
vare volete immettere u.na parola di Vostra 
sce11a, in questo caso, conoscendo1 a Vi 
sara' piu' semplice comprendere la mecca¬ 
nica del gioco» Nel caso che invece 

desi der i at e già' ci rnen t ar Vi nel 1 ' i ndovi - 
nare 1 .a parola proposta dal COMPUTER bàt¬ 
tete l'opzione 1» Durante lo svolgimen¬ 
to del g i oc o ver r ari no vi sua 1 i z z. a t. e 1 e 
lettere iniziali e finali della parola da 
indovinare, con tanti trattini, quante 
sono le lettere da indovinare. Per 

ogni 1 et ter a errata, ap p arira' in alto a 
destra una parte del Vostro corpo che 
pende dalla FORCA," ora un BRACO 10, ora la 
TESTA e cosi' via. Buona fortuna per¬ 

che' ne avrete bisogno! ! ».». 


100 REM GIOCO DELL'IMPICCATO 
110 CALL CLEAR 
120 0PTI0N BASE 1 
130 DIM A$<200) 









































































































































































































140 GOSUB 1840 

150 PRINT TAB (7) ;"**************": TAB (7) ; H 
*L'INPICCATO**":TAB(7);"*************" 

• a • 
m m • 

160 PRINT ” LO SCOPO DEL GIOCO E' » : :" 
QUELLO DI INDOVINARE UNA pA-": :"ROLA, 
CONOSCENDO LA PRIMA E"s: 

170 PRINT "L'ULTIMA LETTERA"::::: 

180 INPUT "IL VOSTRO NOME :": NO# 

190 CALL CLEAR 

200 PRINT » SI DESIDERI IMMETTERE UNA":: 
"TUA PAROLA, PREMI IL NU- "::”MERO 0 , 

SE VUOI CHE SIA IL ": : 

210 INPUT "COMPUTER A SCEGLIERLA,PREMI IL 

NUMERO 1 :": AB 

220 IF AB>1 THEN 200 

230 ON AB+1 GOTO 240,270 

240 PRINT : : : : 

250 INPUT "IMMETERE PAROLA : " : B* 

260 GOTO 320 
270 PRINT : : 

280 INPUT "QUALE DIFFICOLTA (1 A 4):":DI 
290 RANDOMIZE 

300 RN=INT(RND*50> +1 + ( DI -1 >*50 
310 B#=A*(RN) 

320 Z=LEN(B*> 

330 CALL CLEAR 

340 CALL CHAR <128,"FFFFFF") 

350 CALL CHAR(129,"EOEOEOEOEOEOEOEO") 

360 CALL CHAR(130,"FFFFFFEOEOEOEOEO") 

370 CALL CHAR(131,"C3C3C3C3C3C3C3C3") 

380 CALL CHAR(132,"C3C3C3C3C3C3E7E7") 

390 CALL CHAR(133,"000000000000007E") 


































































































































































































































400 

CALL 

CHAR<136,"OOOOOOOOFFFFFFFF") 

410 

CALL 

CHAR<137,"FFFFFFFF00000000") 

420 

CALL 

CHAR <138,"FOFOFOFOFOFOFOFO") 

430 

CALL 

CHAR <139,"OFOFOFOFOFOFOFOF") 

440 

CALL 

CHAR <141,"OOOOOOOOOOOOOOFF") 

450 

CALL 

CHAR <144,"007E7E7E7E7E7E7E") 

460 

CALL 

CHAR <152,"FFFFFFFFFFFFFFFF") 

470 

CALL 

CHAR <153,"C06030180C") 

480 

CALL 

CHAR <154,"03060C1830") 

490 

CALL 

COLOR <13,2,1) 

500 

CALL 

COLOR<14,5,1) 

510 

CALL 

COLOR <15,10,1) 

520 

CALL 

COLOR<16,7,1) 

530 

CALL 

VCHAR <2,3,138,22) 

540 

CALL 

VCHAR<2,30,139,22) 

550 

CALL 

HCHAR<2,4,137,26) 

560 

CALL 

HCHAR<23,4,136,26) 

570 

CALL 

HCHAR<4,6,128,3) 

580 

CALL 

VCHAR<5,5,129,7) 

590 

CALL 

HCHAR<4,5,130) 

600 

CALL 

HCHAR<12,4,128,3) 

610 

C*="PAROLA DA TROVARE " 

620 

N=13 


630 

FOR I 

= 1 TO N 

640 

D*=SEG*<C*,1,1) 

650 

CALL 

HCHAR <11,N+1,ASC < D$)) 

660 

NEXT 

I 

670 

CALL 

HCHAR<12,14,141,13) 

680 

X=21- 

INT <Z/2) 

690 

CALL 

HCHAR<15,X,ASC<B$)) 

700 

G=Z-2 


710 

CALL 

HCHAR<15,X+l,133,G) 

720 

H$=SEG$<B*,Z,1) 














































































































































































































































730 CALL HCHAR<15,X+l+G,ASC<H$>) 

740 M$="LETTERE ERRATE " 

750 M=5 

760 FOR 1=1 TO LEN(M$> 

770 N*=SEG$(M$,I,1> 

780 CALL HCHAR(18,M+I,ASC(N$)) 

790 NEXT I 

800 CALL HCHAR(19,6,141,1—1) 

810 TQT=0 

820 CALL KEY <3,S, T) 

830 IF T=0 THEN 820 
840 Q=0 

850 FOR 1=1 TO Z 
860 L$=SEG$(B*,I,1) 

870 IF ASC (L^) OS THEN 900 
880 CALL HCHAR(15,X+I-l,S) 

890 Q=1 
900 NEXT I 

910 IF BOI THEN 970 

920 FOR R=1 TO Z 

930 CALL GCHAR(15,X+R-1,M) 

940 IF M=133 THEN 820 

950 NEXT R 

960 GOTO 1370 

970 IF TOT=6 THEN 1170 

980 FOR R=1 TO TOT 

990 CALL GCHAR(21,4+R,M) 

1000 IF M=S THEN 820 

1010 NEXT R 

1020 T0T=T0T+1 

1030 CALL HCHAR<21,4+T0T,S) 

1040 ON TOT GOTO 1050,1070*1090,1110,1130, 
1150 




































































































































































































































1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1 170 
1 180 
1 190 
1200 
1210 
i 220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 


CALL HCHAR(6,8,144) 

GOTO 820 

CALL HCHAR(7,8,152) 

GOTO 820 

CALL HCHAR(7,9,153) 

GOTO 820 

CALL HCHAR(7,7,154) 

GOTO 820 

CALL HCHAR(8,8,131) 

GOTO 820 

CALL HCHAR(9,8,132) 

GOTO 820 

DF$=NO$S<’', AVETE 
EG$="PERSO ! SIETE 
FOR 1=1 TO LEN(DF$) 

GW$=SEG$(DF$, 1,1) 

CALL HCHAR(4,17-LEN(NO*)+I,ASC(QW$)) 
NEXT I 

FOR 1=1 TO LEN(EG$) 

QW*=SEG$<EG$,I,1) 

CALL HCHAR(6,12+1,ASC(QW$)) 

NEXT I 
V=19—Z/2 
FOR 1=1 TO Z 
QW$=SEG$(,1,1) 

CALL HCHAR(8,V+I,ASC(QW$)) 

NEXT I 


1320 FOR 1=1 TO 500 


1330. NEXT I 

1340 INPUT ”ANCORA (S/N) ; I* 
1350 IF I^= ,, S” THEN 190 
1360 END 


1370 ON TOT+1 GOTO 


1380,1430,1480,1530,158 























































































































































































































































0,1630,1680 

1380 

DF*="ECCELLENTE"&N0* 

1390 

EG$="NESSUN ERRORE!" 

1400 

L=18-LEN<N0*> 

1410 

U=13 

1420 

GOTO 1720 

1430 

DF$="MOLTO BENE,"&N0* 

1440 

EG$="1 SOLO ERRORE” 

1450 

L=18-LEN(NO^) 

1460 

U=13 

1470 

GOTO 1720 

1480 

DF*="OA BENE, "&NG3- 

1490 

EG$="2 ERRORI FATTI" 

1500 

L=17—LEN < N0$) 

1510 

U=13 

1520 

GOTO 1720 

1530 

DF*="NQN MALE ,"&N0* 

1540 

EG$="3 LETTERE SBAGLIATE" 

1550 

L=17-LEN<NG$> 

1 560 

U= 12 

1 570 

GOTO 1720 

1580 

DF*="MALUCCIO ,"&N0$ 

1 'dVO 

EG$="4 ERRORI ..." 

1600 

L=16-LEN<N0*> 

1610 

U=15 

1620 

GOTO 1720 

1630 

DF$="MALISSINO , "ScNOÌSi" , PUD L " 

1640 

EG*="FARE MEGLIO !" 

1650 

L=16-LEN<N0$> 

1660 

U=13 

1670 

GOTO 1720 

1680 

DF*="ORRIBILE,"&N0* 

1690 

EG*=”RICOMINCIARE !" 



































































































































































































1700 L=19-LEN(N0$) 

1710 U=13 

1720 FOR 1=1 TO LEN(DF#) 

1730 QW$=SEG$(DF$,I,1) 

1740 CALL HCHAR( 5,L+I,ASC(QW$)) 

1750 IF I>LEN(EG$)THEN 1780 
1760 PZ$=SEG$<EG$,I,1) 

1770 CALL HCHAR(7,U+I,ASC(PZSÓ ) 

1780 NEXT I 

1790 FOR 1=1 TO 500 

1800 NEXT I 

1810 INPUT "ANCORA <S/N):":I$ 

1820 IF I$="S M THEN 190 
1830 END 

1840 DATA CAVALLO,TAVOLO,SEDIA,PASTA,FORMA 
GGI0,BURATTINO,MACCHINA 

1850 DATA COMPUTER,BYTE,BIT,INTERFACCIA,ST 
AMPANTE,MONITOR,MICROPROCESSORE,TABULA 
TO 

1860 DATA ALIMENTATORE,MARMELLATA,SUGO,SCU 
OLA,SCOLARO,TESTO,LIBRO 

1870 DATA QUADERNO,MATITA,PENNA,TESTONE,BI 
SONTE,ORSO,FABIO,NERVOSO,ANNA 
1880 DATA BALORDO,VIAREGGIO,PISA,TEXASD03S 
IER,FOLLIA,ALTEREGO,MATTIA,LUCA,GEOVA, 
GIOSUÈ',EBREI 

1890 DATA NUOVOSISTEMA,PREDIGAZ IONE,AMORE, 
BABILONIA,ARMAGEDON,GIUDIZI0,PECORE,CA . 
PRI,DISTRUZIONE 
2040 FOR 1=1 TO 51 
2050 READ A$(I) 

2060 NEXT I 
2070 RETURN 


25 




































































































































































































.DIDATTICA. 


Ì00 CALL CLEAR 
110 1=0 
120 S=1000 
130 T=0 
280 FRINT 

350 REM --- 

400 REM GIOCA IL COMPUTER CONTRO DI TE 
410 PRINT 

420 PRINT "ORA TOCCA A ME INDOVINARE IL NU 
MERO " 

430 PRINT "IMMETTERE "; I ; " E ";S 
440 PRINT "PREMERE RETURN" 

450 INPUT R$ 

460 CALL CLEAR 
470 A=I 
480 B=S 
490 T=0 

520 M=INT((A+B)/2) 

530 T=T+1 
540 PRINT 

550 PRINT "IO PROPONGO " ; M 

560 PRINT "RISPONDETE E' < OPPURE > OPPURE 
E ' = " ; 

570 INPUT R* 

590 IF RT="=" THEN 640 
600 IF R$="<" THEN 1000 
610 IF R$=">" THEN 1100 
620 IF AOB THEN 520 

630 PRINT "IL VOSTRO NUMERO E' : "; A 
















































































































































































































640 FRI NT "L'HO TROVATO IN ";T;" TENTATIVI 

II 

650 FRINT 

660 FRINT "CONTINUIAMO 
670 INPUT R$ 

680 IF R$< > ,, N" THEN 100 

690 END 

1000 B=M—1 

1010 GOTO 620 

1100 A=M+1 

1110 GOTO 620 


In questa puntata inerente alla didattica 
ci occuperemo di un gioco, giocato alla 
rovesciai!... Intatti contrariamente a 
quanto solitamente avviene, sara' il 
COMPUTER che cercherà' d'indovinare il 
numero da Voi scelto. Ovviamente questo 
non e' un programma d'intelligenza 
artificiale ma, solo un esempio di un modo 
un po' diverso di fare dei giochi. Ma 
bando agli indugi e passiamo all'analisi 
dettagliata del programma . Istruzione 
100: in essa mediante le parole chiavi 

CAL.L CLEAR viene ordinato al computer di 
cancellare quanto in quel momento e' 
presente sul video.. Istruzione 110, viene 
posto il numero 0 nella variabile I. 

Istruzione 120: viene posto il numera 1000 
nella variabile S. Istruzione 130: viene 
posto il numero 0 nella variabile T. 

Istruzione 280: viene creato lo spazio di 


















































































































































































una linea sul video mediante la parola 
chiave FRINT. Istruzioni 400-450: La 
parola chiave REM serve a commentare il 
programma. Non viene presa in 

considerazione durante lo svolgimento, 
viene saltata. Il computer Vi avverte che 
dovete scegliere un numero che poi esso 
dovrà' cercare d'indovinare ed attende che 
venga premuto il tasto RETURN (ENTER sullo 
SPECTRUM) per continuare. Istruzioni 

460-530: Viene cancellato il video 

mediante le parole chiave CALL CLEAR -sul 
TI99/4A della TEXAS. Vengono caricate due 
variabili: A con il limite inferiore entro 

il quale esso cercherà' d'indovinare il 
Vostro numero, B con il limite superiore. 
La variabile T serve a contare i tentativi 
che il computer fara' nell'intenta 
d'indovinare il nostro numero. Essa viene 
azzerata ad ogni ciclo di programma. 
Viene calcolata la media dell'intervallo 
del tentativo, ad esempio 500 nel caso di 
0 e 1000 conte limiti i n f er i or i e 


Ad ogni tentativo viene 
1 al valore contenuto nella 
T. Istruzioni 540-570: Il 

visualizza il numero da esso 
e contenuto nella variabile M. 
rispondere se esso (il numero) e' 
<, > oppure ~ al numero da noi pensato. 

La nostra risposta viene caricata nella 
variabile alfanumerica R$. Istruzione 

5S0: Viene controllato che la nostra 


superi orì. 
aggiunto 
vari abile 
computer 
proposto 
Dobbiamo 


































































































































































































































































risposta sia <, > oppure = . In caso 

contrario viene effettuato un salto, 
mediante la parola chiave GOTO 

all'istruzione 550 e viene riproposto il 
numera da parte del computer. Istruzioni 
590-610: Nel caso si risponda - il 

programma salta all'istruzione 640 dove 
vengono visualizzati i tentativi 

effettuati dal computer. Nel caso si 
risponda < , il computer comprende che il 

nostro numero e' piu' piccolo oppure 
uguale ad M-i (il contenuto della 
variabile li meno 1). Viene quindi 
e-f-fettuato un salto all'istruzione 1000 
dóve vienesottratto quindi 1 dal valore 
superiore e mediante l'istruzione 1010 
viene effettuato un salto all'istruzione 
620. Nel caso si risponda > , il 

computer comprende che il nostro numero e' 
maggiore od uguale ad li+i. Viene quindi 
effettuato un salto all'istruzione 1100 
dove viene aggiunto 1 al valore inferiore 
e mediante l'istruzione 1110 viene 
effettuato un salto all'istruzione 620. 
Istruzioni 620-650: Viene controllato se 
il valore inferiore ed i1 valore superiore 
corrispandono ed in tal caso viene 
visualizzato il numero ormai indovinato da 
parte del computer. Istruzioni 660-690: 
Viene richiesto se si desidera continuare 
.nel gioco ed in caso affermativo, mediante 
la parola chiave GOTO viene effettuato un 
salto all'istruzione 100. 
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T 



TEXAS MIX 



I colori dello schermo 


Se volete -avere dei caratteri bianchi sullo sfondo nero p 6 -r 
tutta la durata di un Programma,Potete farlo eseguendo il 
semPlice Pro9rammino■' 

10 FOR 1=1 TO 14 
20 COLL COLORO, 16,1) 

30 HEXT I 
40 CFILL SCREEM < 2 ) 

I colori cosi-' otteneuti sono molto gradevoli su un TV color,ma 
non altrettanto belli su un TV in bianco e nero. Per quest ■'ultimo 
tiPo di televisore e "meglio fare un : 

GRILL SCREENOS) 

rendendo lo schermo grigio con i caratteri neri.Vedremo comunque 
nel Prossimo numero come districarsi nel fantasmagorico mondo 
dei colori del Tl/33. 

Ra11entare i 1istati 


Se avete l'Extended BASIC,Premendo un qualunque tasto mentre 
state listando un Programma,farete in modo da sospendere il 
1 istato;Premendo ancora un tasto il listato riprenderà 1 ". 11 
trucco non funziona sul BASIC non esteso.Da notare che il tasto 
deve essere tenuto Premuto mezzo secondo Per avere 1'"effetto 
desiderato. 

Renumber 


Se rinumerate un Programma con il comando RESEQUENCE,ed il - 
vostro Programma fa riferimento a linee di Programma non 
esistenti il TI cambierà"questi riferimenti in un 32767.Se Per 
esempio avete un GOTO 156 e la linea 156 non esiste,vi 
ritroverete un GOTO 32767. 







































































































































































































CO.STA MARKETING 


A tutti gli amici lettori di SOFTWARE DOSSIER un’offerta a prezzi molto van¬ 
taggiosi di prodotti di consumo per personal e home computer. 

Per effettuare l’ordinazione è sufficiente compilare e spedire in busta 
chiusa a: 

CO.STA SRL - VIA MAZZINI 128 - 56100 PISA - SERVIZIO MARKETING 

il sottostante tagliando, allegando il pagamento dell’importo comples¬ 
sivo in contanti o tramite assegno bancario o vaglia postale. I prezzi so¬ 
no comprensivi di IVA e oneri di spedizione. Per spedizioni in contrasse¬ 
gno supplemento fisso di lire 3.000. 

DISCHETTI , Cod. C040 

B Contenitore in plastica da 

G Cod. V001 I 40 minifloppy, con serratura 

Minifloppy 5" 1/4 semplice faccia, semplice densità. < Lire 28.000 

Scatola da 10 dischetti Lire 45.000 _ 

Ogni scatola oltre la 1° sconto 5 %. 


□ Cod. V002 

Minifloppy 5" 1/4 doppia faccia, doppia densità. 
Scatola da 10 dischetti Lire 55.000 

Ogni scatola oltre la 1° sconto 5%. 


□ Cod. 8002 

Floppy 8" doppia faccia, doppia densità. Scatola da 
10 dischetti Lire 65.000 

Ogni scatola oltre la 1° sconto 5%. 

CONTENITORI 

P Cod. BF01 

Contenitore a scatola FLEX BOX per 10 minifloppy con 
coperchio Rosso, Giallo o Nero Lire 5.000 


Ordine minimo lire 50.000 



Cod. C090 

Contenitore in plastica da 
90 minifloppy, con serratura 

Lire 35.000 


□ Cod. TD01 

Supporto per stampante e contenitore di moduli conti¬ 
nui TOP DESK in plastica trasparente Lire 90.000 

FLOPPY DISKS 

□ Cod. C001 

Floppy Dlsks Album Lire 8.500 

□ Cod. E001 

Buste per 2 Floppy Dlsks 5" 1 /4 con etichette 
In clear antimagnetico Lire 800 

□ Cod. E002 

Buste per Floppy Dlsks 8" con etichetta 

in clear antlmagnetlco Lire 800 


CODICE 

QUANTITÀ 

PREZZO TOTALE 





Nome 




Cognome 




Via N° 












CAP 








Firma 

TOTALE L. 




















































